home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Real Networks 2.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-01-23  |  1.9 KB  |  83 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Real Networks\"
  5. "NAME"="Clear Cookies"
  6. "VERSION"="1.10"
  7. "WARNING"="1"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear Cookies"
  10. "TEXT 2"="Clear Cookies (total erase!)"
  11. "DESCRIPTION 1"="This plug-in will totally erase the entire contents of the RealPlayer Cookies file."
  12. "DESCRIPTION 2"="If you select to open the second option, the cookies.txt will be filled with garbage before deleting so even an undelete does not show what was inside the files."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to CptSiskoX for the help."
  18.  
  19. sP="HKCR\Software\RealNetworks\RealMediaSDK\6.0\Preferences\CookiesPath\@"
  20.  
  21.  
  22. Sub Plugin_Initialize 
  23. End Sub
  24.  
  25. Sub Plugin_CheckData(ElementIndex)
  26. End Sub
  27.  
  28. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  if ElementIndex=1 then 
  30.     Call DoWork(false)  
  31.  else
  32.     Call DoWork(true)
  33.  end if
  34.  
  35.  
  36. End Sub
  37.  
  38.  
  39.  
  40. Sub DoWork(EraseTotally)
  41.     s=RegReadValue(sP)
  42.     s=CStr(s)
  43.     if len(s)>0 then
  44.        if FileExists(s) then
  45.           sFile=s
  46.  
  47.           Call FileSetAttribute(sFile,"R-")
  48.           Call FileSetAttribute(sFile,"H-")
  49.           Call FileSetAttribute(sFile,"S-")
  50.  
  51.  
  52.           if EraseTotally then
  53.              lC=TxtOpen(sFile)
  54.  
  55.              'replace contents of file    
  56.              for l=1 to lC 
  57.                  Call TxtSetLine(l,"-")
  58.              next
  59.  
  60.              Call TxtSave()
  61.           end if         
  62.  
  63.   
  64.           'now kill the file
  65.           FileDelete(sFile)
  66.  
  67.           'done!
  68.           Call msginformation("Cookies cleared!")
  69.        else
  70.           Call msgerror("Unable to locate Cookies file - nothing done!")
  71.        end if
  72.    else
  73.        Call msgerror("Unable to locate Cookies file - nothing done!")     
  74.    end if
  75. end Sub
  76.  
  77.  
  78.  
  79.  
  80. Sub Plugin_Terminate 
  81. End Sub
  82.  
  83.